DIMENSION I(16,8)
	
	TYPE 1
	ACCEPT 2,NAM
	IF(NAM.EQ.'R')GO TO 10
	TYPE 3
	ACCEPT 2,NN
1	FORMAT(' TYPE INPUT NAME  '$)
2	FORMAT(A5)
3	FORMAT(' TYPE OUTPUT NAME  '$)
4	FORMAT(16A5)
	CALL IFILE(1,NAM)
    	CALL PUTFIL(NN)

5	DO 50 K=1,8
  	READ(1,4,END=99)(I(J,K),J=1,16)
50	CALL TYP(I(1,K))
     	CALL FASTOUT(I,128)
	GO TO 5 
99 	I(1,K)=999 
100  	CALL FASTOUT(I,128)
	CALL EXIT
10	TYPE 1
	ACCEPT 2,NN
	CALL GETFIL(NN)
11	CALL FASTIN(I,128)
	DO 12 K=1,8
	IF(I(1,K).EQ.999)CALL EXIT
12	CALL TYP(I(1,K))
	GO TO 11
	END

	SUBROUTINE TYP(I)
	DIMENSION I(1)
	DO 6 K=16,1,-1
6	IF(I(K).NE.' ')GO TO 7
	K=1  
7	TYPE 44,(I(J),J=1,K)
44	FORMAT(1X16A5/)
	END